home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Utilities / In⁄Out™ / In_Out™ / card_4913.txt < prev    next >
Text File  |  1990-04-09  |  11KB  |  498 lines
  1. -- card: 4913 from stack: in
  2. -- bmap block id: 5470
  3. -- flags: 0000
  4. -- background id: 2649
  5. -- name: Sorting
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=62 top=85 right=108 bottom=204
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card "Automation"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: 0000
  30. -- rect: left=62 top=115 right=138 bottom=204
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: New Button
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   go to card "Sorting"
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 3 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=61 top=148 right=171 bottom=203
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: New Button
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   go to card "HotKeys"
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part 4 (button)
  66. -- low flags: 00
  67. -- high flags: 0000
  68. -- rect: left=61 top=180 right=203 bottom=203
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 1
  72. -- font id: 0
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: New Button
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   go to card "Display"
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 5 (button)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=61 top=211 right=234 bottom=203
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: New Button
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   go to card "General"
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 6 (button)
  104. -- low flags: 00
  105. -- high flags: 6006
  106. -- rect: left=213 top=68 right=86 bottom=295
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: New Button
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   set the hilite of card button 8 to FALSE
  118.   set the hilite of card button 9 to FALSE
  119.   set the hilite of card button 10 to FALSE
  120.   set the hilite of card button 11 to FALSE
  121.   set the hilite of card button 12 to FALSE
  122.  
  123.   set the hilite of me to TRUE
  124.   global GOOBER
  125.   if the hilite of me is true then
  126.     put SLBin into GOOBER
  127.   end if
  128.  
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 7 (button)
  134. -- low flags: 00
  135. -- high flags: 2000
  136. -- rect: left=316 top=288 right=306 bottom=376
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: OK
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   global GOOBER
  148.   if the hilite of card button 6 is true then
  149.     put "SLBin" into GOOBER
  150.   end if
  151.   if the hilite of card button 8 is true then
  152.     put "SLBout" into GOOBER
  153.   end if
  154.   if the hilite of card button 9 is true then
  155.     put "SLBnames" into GOOBER
  156.   end if
  157.   if the hilite of card button 10 is true then
  158.     put "SLBreturn" into GOOBER
  159.   end if
  160.   if the hilite of card button 11 is true then
  161.     put "SLBnotes" into GOOBER
  162.   end if
  163.   if the hilite of card button 12 is true then
  164.     put "SLBdate" into GOOBER
  165.   end if
  166.  
  167.  
  168.   go to card GOOBER
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 9 (button)
  174. -- low flags: 00
  175. -- high flags: 2006
  176. -- rect: left=299 top=69 right=87 bottom=356
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: New Button
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   set the hilite of card button 6 to FALSE
  188.   set the hilite of card button 9 to FALSE
  189.   set the hilite of card button 10 to FALSE
  190.   set the hilite of card button 11 to FALSE
  191.   set the hilite of card button 12 to FALSE
  192.   set the hilite of me to true
  193.   global GOOBER
  194.   put SLBout into GOOBER
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part 10 (button)
  200. -- low flags: 00
  201. -- high flags: 2006
  202. -- rect: left=362 top=68 right=88 bottom=445
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 1
  206. -- font id: 0
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: New Button
  211. ----- HyperTalk script -----
  212. on mouseUp
  213.   set the hilite of card button 6 to FALSE
  214.   set the hilite of card button 8 to FALSE
  215.   set the hilite of card button 10 to FALSE
  216.   set the hilite of card button 11 to FALSE
  217.   set the hilite of card button 12 to FALSE
  218.   set the hilite of me to TRUE
  219.   global GOOBER
  220.   if the hilite of me is true then
  221.     put SLBnames into GOOBER
  222.   end if
  223.  
  224. end mouseUp
  225.  
  226.  
  227.  
  228. -- part 11 (button)
  229. -- low flags: 00
  230. -- high flags: 2006
  231. -- rect: left=213 top=87 right=105 bottom=295
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: New Button
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   set the hilite of card button 6 to FALSE
  243.   set the hilite of card button 8 to FALSE
  244.   set the hilite of card button 9 to FALSE
  245.   set the hilite of card button 11 to FALSE
  246.   set the hilite of card button 12 to FALSE
  247.   set the hilite of me to TRUE
  248.   global GOOBER
  249.   if the hilite of me is true then
  250.     put SLBreturn into GOOBER
  251.   end if
  252.  
  253. end mouseUp
  254.  
  255.  
  256.  
  257. -- part 12 (button)
  258. -- low flags: 00
  259. -- high flags: 2006
  260. -- rect: left=299 top=88 right=105 bottom=359
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 0
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: New Button
  269. ----- HyperTalk script -----
  270. on mouseUp
  271.   set the hilite of card button 6 to FALSE
  272.   set the hilite of card button 8 to FALSE
  273.   set the hilite of card button 9 to FALSE
  274.   set the hilite of card button 10 to FALSE
  275.   set the hilite of card button 12 to FALSE
  276.   set the hilite of me to TRUE
  277.   global GOOBER
  278.   if the hilite of me is true then
  279.     put SLBnotes into GOOBER
  280.   end if
  281.  
  282. end mouseUp
  283.  
  284.  
  285.  
  286. -- part 13 (button)
  287. -- low flags: 00
  288. -- high flags: 2006
  289. -- rect: left=362 top=88 right=105 bottom=450
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 0 / 0
  292. -- text alignment: 1
  293. -- font id: 0
  294. -- text size: 12
  295. -- style flags: 0
  296. -- line height: 16
  297. -- part name: New Button
  298. ----- HyperTalk script -----
  299. on mouseUp
  300.   set the hilite of card button 6 to FALSE
  301.   set the hilite of card button 8 to FALSE
  302.   set the hilite of card button 9 to FALSE
  303.   set the hilite of card button 10 to FALSE
  304.   set the hilite of card button 11 to FALSE
  305.  
  306.   set the hilite of me to TRUE
  307.   global GOOBER
  308.   if the hilite of me is true then
  309.     put SLBdate into GOOBER
  310.   end if
  311.  
  312. end mouseUp
  313.  
  314.  
  315.  
  316. -- part 15 (button)
  317. -- low flags: 00
  318. -- high flags: 2000
  319. -- rect: left=383 top=286 right=308 bottom=445
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 1
  323. -- font id: 0
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: OK
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   go to card "SLBnames"
  331. end mouseUp
  332.  
  333.  
  334.  
  335. -- part 17 (button)
  336. -- low flags: 00
  337. -- high flags: 2000
  338. -- rect: left=232 top=142 right=164 bottom=341
  339. -- title width / last selected line: 0
  340. -- icon id / first selected line: 0 / 0
  341. -- text alignment: 1
  342. -- font id: 0
  343. -- text size: 12
  344. -- style flags: 0
  345. -- line height: 16
  346. -- part name: New Button
  347. ----- HyperTalk script -----
  348. on mouseUp
  349.   show card field "EPP"
  350.   repeat until the mouse is down
  351.     show card field "EPP"
  352.   end repeat
  353.   hide card field "EPP"
  354.  
  355. end mouseUp
  356.  
  357.  
  358.  
  359. -- part 18 (button)
  360. -- low flags: 00
  361. -- high flags: 2000
  362. -- rect: left=232 top=187 right=209 bottom=341
  363. -- title width / last selected line: 0
  364. -- icon id / first selected line: 0 / 0
  365. -- text alignment: 1
  366. -- font id: 0
  367. -- text size: 12
  368. -- style flags: 0
  369. -- line height: 16
  370. -- part name: New Button
  371. ----- HyperTalk script -----
  372. on mouseUp
  373.   show card field "ENP"
  374.   repeat until the mouse is down
  375.     show card field "ENP"
  376.   end repeat
  377.   hide card field "ENP"
  378. end mouseUp
  379.  
  380.  
  381.  
  382. -- part 19 (button)
  383. -- low flags: 00
  384. -- high flags: 2000
  385. -- rect: left=232 top=233 right=255 bottom=341
  386. -- title width / last selected line: 0
  387. -- icon id / first selected line: 0 / 0
  388. -- text alignment: 1
  389. -- font id: 0
  390. -- text size: 12
  391. -- style flags: 0
  392. -- line height: 16
  393. -- part name: New Button
  394. ----- HyperTalk script -----
  395. on mouseUp
  396.   show card field "VNP"
  397.   repeat until the mouse is down
  398.     show card field "VNP"
  399.   end repeat
  400.   hide card field "VNP"
  401. end mouseUp
  402.  
  403.  
  404.  
  405. -- part 20 (button)
  406. -- low flags: 00
  407. -- high flags: 2000
  408. -- rect: left=225 top=259 right=279 bottom=381
  409. -- title width / last selected line: 0
  410. -- icon id / first selected line: 0 / 0
  411. -- text alignment: 1
  412. -- font id: 0
  413. -- text size: 12
  414. -- style flags: 0
  415. -- line height: 16
  416. -- part name: New Button
  417. ----- HyperTalk script -----
  418. on mouseUp
  419.   show card field "CPN"
  420.   repeat until the mouse is down
  421.     show card field "CPN"
  422.   end repeat
  423.   hide card field "CPN"
  424. end mouseUp
  425.  
  426.  
  427.  
  428. -- part 21 (field)
  429. -- low flags: 81
  430. -- high flags: 0004
  431. -- rect: left=52 top=115 right=142 bottom=460
  432. -- title width / last selected line: 0
  433. -- icon id / first selected line: 0 / 0
  434. -- text alignment: 1
  435. -- font id: 20
  436. -- text size: 18
  437. -- style flags: 0
  438. -- line height: 24
  439. -- part name: EPP
  440.  
  441.  
  442. -- part 22 (field)
  443. -- low flags: 81
  444. -- high flags: 0004
  445. -- rect: left=52 top=164 right=191 bottom=459
  446. -- title width / last selected line: 0
  447. -- icon id / first selected line: 0 / 0
  448. -- text alignment: 1
  449. -- font id: 20
  450. -- text size: 18
  451. -- style flags: 0
  452. -- line height: 24
  453. -- part name: ENP
  454.  
  455.  
  456. -- part 26 (field)
  457. -- low flags: 81
  458. -- high flags: 0004
  459. -- rect: left=52 top=209 right=236 bottom=459
  460. -- title width / last selected line: 0
  461. -- icon id / first selected line: 0 / 0
  462. -- text alignment: 1
  463. -- font id: 20
  464. -- text size: 18
  465. -- style flags: 0
  466. -- line height: 24
  467. -- part name: VNP
  468.  
  469.  
  470. -- part 27 (field)
  471. -- low flags: 81
  472. -- high flags: 0004
  473. -- rect: left=0 top=283 right=311 bottom=512
  474. -- title width / last selected line: 0
  475. -- icon id / first selected line: 0 / 0
  476. -- text alignment: 1
  477. -- font id: 20
  478. -- text size: 18
  479. -- style flags: 0
  480. -- line height: 24
  481. -- part name: CPN
  482.  
  483.  
  484. -- part contents for card part 21
  485. ----- text -----
  486. This is where you would enter your current password.
  487.  
  488. -- part contents for card part 22
  489. ----- text -----
  490. This is where you would enter your NEW password.
  491.  
  492. -- part contents for card part 26
  493. ----- text -----
  494. This is where you would verify the NEW password.
  495.  
  496. -- part contents for card part 27
  497. ----- text -----
  498. Clicking this Button will change the OLD password to the NEW one."